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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Srvol.bl 

> 

> This module contains all the specifications and source code for 

> controlling the Widget Servo Board < I.e., communication 

> protocol, seek and head positioning, spare table lookup, etc. > 

> 

> PROCEDURE SeekC Cylinder : WORD { !!rC } 

> Head : BVTE { IrE > 

> Sector : BVTE I IrF > 

> > 

> PROCEDURE Wai t_xl1s< x : BVTE { !r1 > 

> FUHCTIOH PosHeads( Wait : BOOLEfiN ( !r8/bit 5 } 

> Parent : BVTE { !rB } 

> Cylinder : WORD { !!rC } 

> Head : BYTE { IrE } 

> Sector : BVTE { IrF } 

> > : BOOLEfiH 

> PROCEDURE SelectHead< Head : BVTE { IrE } ) 

> FUNCTION CalcNagDir< Cylinder : WORD { II rC > > : 

> BOOLEfiH 

> Magnitude : WORD { !r5 } 

> Direction : BVTE { :r9 > 

> FUNCTION FindDlstance< Cylinder : WORD i !!rC } ? : BOOLERN 

> FUNCTION ServoOk : BOOLERN 

> RecalNaqDir : BVTE { IrO > 

> PROCEDURE SelectHead< Head : BVTE { IrE } 

> PROCEDURE RutoJOffset 

> PROCEDURE Chk_Offset 

>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO External 

.LSTON 

. Page 

> > > > > > > > >>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : Seek 

> 

> This procedure accepts cylinder, head, and sector values 

> and then ca 1 1 s pos i t i on heads . 

> 

> Inputs: 

> Cylinder: WORD { ! !rC } 

> Head : BVTE { IrE ) 

> Sector : BVTE { IrF > 

> 

> Outputs: { none } 

> 

> Global Uaribles Changed: 

> Cyl inder. Head, Sector 

> fl I gor { thm : 



> 

> BEOm 



LastSeekfiddress := CurrentSeekRddress 
Disks tat .Parked := False 
IF DiskStat.SeekComplete 



THEH 



1 := 4 
WHILE < i > 



> AND mii Pos}tlonHeads< Wait, 

Dinl_Seek, Cylinder, Head, Sector 



IF NOT< Recovery > THEH Abort 
i := i -1 

IF < i = ) 
THEM Abort 

ELSE Ua it up to 1 sec for ServoReady, if tiineout Abort 
Lcis tCy I j nder : = G I oba I Cy 1 1 nder 
LastHead ;= Global Head 
LastSector := Global Sec tor 



= Cy n nder 
= Head 

= Sector 



G 1 oba I Cy I i nder 
i3 i oba I Head 
1 oba I Sector 
Sec tor Count := Sector-Count 1 
D i skStat . SeekComp I ete : = True 
DiskStat -OriTrack := True 
END 



> > > > > : 



Seek : 



Seek_BeTry : 
Seek_Lp : 



>>>>>>>>>>>>>>>> 

. LSTOFF 

.FIN 
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.DO 
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FIN 



Call Ext_Push 

Ld LstJHiCyl ,Cyl irider ;save last seek address 

Ld Ls t_LoCM I , Cm I i nder+ 1 

Ld Lst_Head,Head 

Ld LstJSec tor, Sector 

And D ! skS ta t , «$FF-Parked 

Tm DiskStat,*SeekComplete ; check for hscid/Qr-m motion 

Jr Z,Seek_iJa! t 

Ld !r1.*4 

find D I SkStat , »$FF-Long_Seek 

Ld !r8,»Maft 

Cal ! PosHeads 

Jr H2,Seek_£nd 



tm 



Excp t JS ta t , *Recoyer y 
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